home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / System / BoingBag1 / Contributions / InstallerNG / examples / sysinfo.installer < prev    next >
Text File  |  1999-10-15  |  1KB  |  37 lines
  1.  
  2. (user expert)
  3. (set @proceed-button "Great configuration"
  4.      @abort-button "What the hell am I using ?!"
  5. )
  6.  
  7. (procedure version-to-string #ver ("%ld.%ld" (/ #ver 65536) (bitand #ver 65535)))
  8.  
  9. ; some information
  10. (exit "Your configuration!\n\n\n"
  11.       "Installer version: " (version-to-string @installer-version) "\n"
  12.       "InstallerNG version: " (if @installer-ng-version (version-to-string @installer-ng-version) "No") "\n"
  13.       "\n---------------\n\n"
  14.       "CPU: " (database "CPU") "\n"
  15.       "PPC: " (database "PPC") "\n"
  16.       "FPU: " (database "FPU") "\n"
  17.       "MMU: " (database "MMU") "\n"
  18.       "\n"
  19.       "OS version: " (database "os-ver") "\n"
  20.       "\n"
  21.       ("Todays date is %s\nAnd it`s %s o`clock\n" (database "date") (database "time"))
  22.       "\n"
  23.       "free CHIP: " (database "graphics-mem") "\n"
  24.       "free FAST: " (database "fast-mem") "\n"
  25.       "free total: " (database "total-mem") "\n"
  26.       "\n"
  27.       "Chipset: " (database "chiprev") "\n"
  28.       "Graphics System: " (database "gfxsystem") "\n"
  29.       "VBlank: " (database "vblank") "\n"
  30.       "\n"
  31.       "GUI: " (database "gui")
  32.  
  33.       (quiet)
  34. )
  35.  
  36. (welcome)
  37.